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ENTAL+HW22 


YES aDWmNCE 




02552 


71 


0001 


1006 




ADDALK*0001 


comparison address 




02553 


44 


2547 


1UU7 




STfiAL*KW22 






02554 


57 


3101 


1010 


RW7 


isk*par 


is pattern complete 




02555 


34 


2557 


loll 




Jp*L0K+2 


NO 




02556 


34 


2622 


1012 




JP*LCON 


yes 




02557 


76 


1735 


1013 




RJP*CHEK 






02560 


34 


2544 


1014 




JP*RW5 


CONT tlvIuE 




02561 


12 


2547 


1015 


RVv20 


EHTAUKW22 


ERROR DISPLAY 




02562 


74 


2563 


1016 




STRADR*RW23 




in ( n 

tu rr 


02563 


10 


0000 


1017 


K w 2 3 


Ei;TaU*o 


CORRECT INTO AU 


i m 
i- • rn 


02564 


46 


3107 


1020 




STRAU+DIP 


• SAVE FOR TYPE OUT 


O H 


02565 


12 


3101 


1021 




ental*par 




O' -J 


02566 


74 


256? 


1022 




siradr*lok+i 




U) O' 
U) 


02567 


12 


0000 


1023 




ENTaL+O 


incorrfct into al 




02570 


44 


3110 


1024 




STRAL*DlP+l 


save for iypeout 




02571 


50 


5601 


1025 




• STOP+Ol 


Set sTr.P for error display 


33 


02572 


12 


3101 


1026 




ental*p«r 


failing address into al 


I'll 

H 


02573 


44 


3111 


1027 




STRAL+HLRE 


Save For typeout 


0) 
• | — j 


0*574 


44 


3112 


1030 




STRAL+lHERE 


save for iypeout 


o 


02575 


50 


5601 


1031 




ST OP* 01 


set sTi.P 0 TO display FAILING 


address 


02576 


50 


5U2u 


1032 




S»;P*20 


SET SKIP 4 TO SUPPRESS TYPEOUT 


r. 


02577 


76 


1607 


1033 




RJP+ERROUT 


NOT SET TIPEOUT 




02b00 


5u 


5001 


1034 




SkP*Q1 


SET SKIP 0 TO REPEAT SR 




02D01 


34 


ci551 


1035 




JF+RW7-3 








f 
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02602 


34 


2501 


1036 




JF*RW 


02603 


00 


0 0 5 () 


1037 


KV;lQ 


00*0050 


02604 


0 0 


O05o 


1040 


RWH 


00*0050 


02605 


44 


7000 


1041 


RVv 3 0 


stral+image 


02606 


i)2 


7000 


1042 


R Vv 3 1 


CMAL* IMAGE 








1043 


RAN 


PR06*CASEY*29jUNE6 


02607 


34 


0000 


1044 


RAN 


JP*0 


02610 


12 


2620 


1045 


RANI 


ENTAL+RAN2 


02611 


24 


2620 


1046 




MULAL*RAN2 


02612 


26 


2621 


1047 




QIVA*RAN3 


02613 


62 


2616 


1050 




UPAUNZ*RAN4 


02bl4 


44 


2620 


1051 




STRAL*RaN2 


Q2bl5 


55 


2607 


1052 




IJP*RAN 


02616 


46 


2620 


1053 


RAN4 


STRAU*RAN2 


02617 


55 


2607 


1054 




IJP+RAN 


02620 


00 


0703 


1055 


RAN2 


00*0703 


02621 


37 


7775 


1056 


RAN 3 


37*7775 


02622 


40 


3047 


1057 


LCON 


cl*lpat 


02623 


70 


0020 


1060 


LCONA 


El TALK *20 


02624 


44 


3045 


no 6i 




STRAL*LaCTR 


02625 


40 


3046 


1062 


LCONB 


CL*L00P 


02626 


76 


3022 


1063 


LCONC 


RJP*LINIT 


02b27 


74 


2631 


1064 




STRAOR*LCOND 


02630 


12 


3047 


1065 




ENTaL*LPAT 


0<:b31 


45 


OUOG 


1066 


LCOND 


STRaLB*oOOo 


02632 


56 


3035 


iu67 




6SK*L77 


'02t>33 


34 


2631 


1070 




JP+LC0ND 


02b34 


12 


304b 


. 1071 




ental*loop 


02635 


10 


1523 


1U72 




entau*sizei 


02b36 


62 


2642 


1073 




jpaunz*lcone 


02o37 


02 


3032 


1074 




cmal*loi 


02b40 


63 


2644 


1075 




jpmot*lconei 


02641 


34 


2647 


1076 




JP*LC0NF 


02642 


02 


3033 


1077 


• ec one 


CMAL*L03 


02643 


6 1 


2647 


1100 




JPEQ+LCONF 


02644 


. ) 


0001 


iiol 


LC0NE1 


ANOaLK*! , 



set repeat sr 



Random number generator 



ini t pattern store=o 

I MIT AOOR CTR=020 

ini t Loup ctr=o 

I N I T B»PICK UP INl.T ADDR 

SET aDdR FOR USE 

STORE ?ERU OR -ZERO 

ALE CEi LS IN SEGMENT SET 

NO 

YES-PICK UP LOOP CTR 

iza ,joro control 
no 

yes-loop ctr=i 
NO 

YES-.jOliE STORING 
LOOP CTR=3 
YES-DOijE STORING 



(i> cn 
u.i pc 
i rn 
i- in 

0 H 

1 ■ 

o -J 
u cn 



po 
rn 
<1 
M 
f n 
H 
O 





C ( 



02b45 


44 


3046 


1102 




STKaL*LOOP 


02646 


34 


2626 


1103 




UP*l_CONC 


02647 


52 


3045 


1104 


lconf 


EnTb*LACTR 


02b50 


40 


3046 


1105 




CL.*LOOP 


02651 


10 


3041 


1106 




EhTAU*L677 


0-^652 


47 


oooo 


1107 


LCONG 


STRaUB*Q000 


02653 


12 


3046 


1110 




ENTAL*LuOP 


02654 


02 


3034 


1111 




CMAL*L9 


02b55 


61 


2661 


1112 




jpeq*lconh 


02656 


71 


0001 


1113 




A00aLK*1 


02657 


44 


3046 


1114 




STRaL*LOOP 


02660 


34 


2652 


1115 




Up+LCONG 


02661 


12 


3047 


1116 


LCOflH 


ENTAL+LPAT 


026b2 


45 


0000 


1117 




stralb*oooo 


02663 


40 


3046 


1120 




CL*LOOP 


02664 


76 


3022 


1121 


LCONI 


RJP+LINIT 


02665 


74 


2667 


1122 




STRADR*LCQNJ 


0«i666 


74 


2677 


1123 




stradr*lcqnk 


0^667 


13 


0000 


1124 


LcONU 


EnTaLb*0000 


02670 


02 


3047 


1125 




CMAL*LPaT 


0^671 


61 


2754 


1126 




jpeg*lconm 


02672 


10 


3u47 


1127 




EnTaU^LPAT 


02673 


46 


3043 


1130 




strau*lcorr 


02674 


44 


3044 


1131 




STRaL^LICORR 


02675 


50 


56.01 


1132 




ST0P*01 


02676 


42 


5042 


1133 




STR0+LADD 


02677 


70 


0000 


1134 


LCOriK 


EnTaLK*0000 


02700 


14 


3042 


1135 




audal*ladd 


02701 


44 


3042 


1136 




5TRaL*L»DD 


02702 


50 


5601 


1137 




ST0P+01 


02703 


50 


5020 


1140 




SKPt020 


02704 


34 


2706 


1141 




JP*L0K+2 


02705 


34 


2751 


1142 




JP+LCONL 


Q«i706 


44 


1606 


1143 




STRAL*6aER 


02707 


30 


2710 


1144 




TYPT*$CR$ERROH$CRsi: 


02710 


00 


311b 
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inch Loop cth 

STORE INTO NEXT SEGMENT 
SET rt-IiJDEX WITH ADDR CTR 

In it loop ctr=o 

STORE NEW PATTERN 
DONE 10 TIMES YET 

yes-enuf 
I ncr loop ctr 



f.DRESs= 



STORE nRlG PATTERN AGAIN 

Ini t loop ctr=o 

INIT B » PICK up INIT ADDR 

SET ADDR FOR USE 

set for possible error use also 

PICK up CELL VALUE 

Same as pattern stored 
yes 

CORRECT DATA to aU 
Save AurAL FOR TYPEOUT 

stop to display if key 0 

Save Amur bias 

BASE Ai'iOR OF SEGMENT 

PLUS BIAS To GET TRUE AUuR 

Save ahoR for typEqut 

Stop TO DISPLAY IF KEY 0 
SKIP 4 SET 
No 



vii ( n 

UJ X 
i m 

ill 
O H 
h • 

O ' -J 
GO O' 
(Tl 



. X 
111 
< 
M 
O) 



YES-sUpPRESS TYPEOUT 
Set error FLAG' WITH ADDR( NEVER 0) p 



NOT 




02711 


76 


4562 




02712 


62 


2062 




02713 


76 


4144 




02714 


44 


6245 . 




02715 


b3 


b335 




02716 


77 


7777 




02717 


30 


2720 


1145 


02720 


00 


3352 




02721 


bO 


3042 




02722 


00 


0000 




02723 


30 


2724 


1146 


02724 


00 


3115 




02725 


00 


0000 




02726 


43 


2062 




02727 


62 


4543 




02730 


64 


3577 




02731 


30 


2732 


1147 


02732 


00 


3352 




02733 


60 


3043 




02734 


UO 


0000 




02735 


30 


2736 


1150 


02736 


00 


3H5 




02737 


00 


0000 




02740 


51 


5643 




02741 


20 


6262 




02742 


45 


4364 




02743 


35 


777? 




02744 


30 


2745 


1151 


02745 


00 


3352 




02746 


60 


3044 




02747 


UU 


0000 




02750 


50 


5604 


1152 


02751 


50 


bOOl 


1153 


02752 


34 


2754 


1154 


02753 


3 U 


2622 


1155 


02754 


< 


)3035 


1156 



TYPC*LADO 
TYPT* CORRECTS 

TYPC*LCURR 
TYPT 3 * 1 INCORkECT- 

TYPC+L1CORR 

STOP*04 

LcOfjL SKP*01 

Jp*LQK+2 

) 



LCONM 



JP*L.CON 

B5K*L77 
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if) in 
lu X 
i m 
i - m 
o -| 

I-- ' 

O' -J 
(O U 1 
O' 



P3 

ITI 

STOP Ft TYPEOUT IF KEY 2 £ 

SKIP 0 SET O 

HO 

YES-REf-YCLE test r 

ALL CEi LS IN SEGMENT CHECKED \ 




( 





PAGE 021 



02755 


34 


2667 


1157 




JP*LC0NJ 


NO 


02756 


12 


304b 


1160 




ental*lqop 


YES-PIcK up LOOP CTR 


02757 


10 


1523 


116.1 




ENTAU*SI2E1 


128 mGPQ CONTROL 


02760 


62 


2764 


1162 




UPAUNZ*LC0NN 


NO 


02761 


02 


30 32 


• 1163 




CMAL+L01 


YES-LOnP CTR=1 


02762 


63 


276b 


1164 




jpnot*lconni 


NO 


02763 


34 


2771 


1165 




JP*LC0N0 


yes-oo, me checking 


02764 


02 


3033 


1166 


LC0NN 


CMAL*L03 


LOOP ClR=3 


02765 


6 1 


2771 


1167 




JPEG*LC0N0 


Yes-done checking 


02766 


71 


0001 


1170 


LCONNi 


ADDALK+1 




02767 


44 


304b 


1171 




stral*loop 


Inch loop ctr 


02770 


34 


2o64 ■ 


1172 




JP*LC0NI 


check next segment 


02771 


12 


304b 


1173 


LCQN0 


EnTaL*LaCTR 


address COUNTER 


02772 


02 


303b 


1174 




CMAL+L77 


END OF SEGMENT 1 


02773 


63 


277b 


1175 




JPNOT*LCON01 


NO 


0*774 


70 


0200 


1176 




ENTALK*200 


YES- ftOfiR 200 STARTs SESM 2 


02775 


34 


3013 


1177 




JP+LC0N04 




02776 


02 


3037 


1200 


LC0N01 


CMAL+L277 


END of SEGMENT 2 


02777 


b3 


3004 


1201 




JPN0T*LC0N02 


NO 


03000 


12 


1523 


i.202 




Ef|TAL*SlZEl 


Yes-i2m word control 


05001 


61 


301b 


1203 




JPALZ*LC0NP 


Yes-dome with this pattern 


03002 


70 


040Q 


1204 




ENTALK*400 


NO-aODk 400 STARTS SEGM 3 


03003 


54 


3013 


1205 




JP*LC0N04 




03(j04 


02 


3040 


1206 


LCOi'jO,? 


CMAL+L477 


end of segment 3 


03uQ5 


63 


3010 


1207 




JPN0T*LC0N03 


NO 


03006 


70 


0600 


1210 




ENiTALK*600 


YES-AD.ll* .600 STARTs SEGM 4 


03007 


34 


3013 


1211 




UP*LC0N04 




03q10 


02 


3041 


1212 


L C 0 N 0 3 


CMAL+l-677 


END OF SEGMENT 4 


03011 


ui 


301b 


1213 




JPEQ*ICGNP 


yes-go,, e with this pattern 


03ol2 


71 


0001 


1214 




APDALK+i 


no-imcr addr ctr by i 


05013 


44 


304b 


1215 


LC0MQ4 


STHAL+LaCTR 


modify aDOR ctr 


03014 


34 


2o25 


1216 




JP*LC 0N« 


repeat, changing new addr 


03015 


12 


3047 


1217 


LCONP 


ENTaL*LPAT 


PATTfcKW. OF ZEROES USED 


06016 


63 


307b 


1220 




JPALNZ*FLUSH 


NO-1 HR < . UGH WITH TEST 


OoOl 7 


70 


7777 


1221 




E(,TaLK*7777 


Yes 


03020 


44 


3047 


122.2 




STRaL+LPAT 


RESET PATTERN ST0RE=777777 



cn (n 
UJ Du 
i rn 
i • m 

0 H 

1 ■ 

O' 

U) O' 

-4 



m 



M 

<n 

M 

C 



P 
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03o21 


34 


2623 


1223 




UP+LCONa 


03022 


UO 


0000 


1224 


LINlT 


0*0 


05023 


12 


3046 


1225 




ENTaL*LOOP 


03024 


63 


3027, 


1226 




JPALNZ*L0K+3 


.03025 


3b 


0020 


1227 




ENTrK* 2U 


03026 


55 


3022 


1230 




I JP+LINIT 


03027 . 


24 


3036 


1231 




MULAL*L2Q0 


03u30 


36 


UOOO 


1232 




entbk*g 


03031 


55 


3022 


1233 




ijp*linit 


00032 


00 


0001 


1234. 


LOl 


oooooi* 


03033 


00 


0003 


1235 


L03 


000003* 


03u34 


00 


0011 


1236 


L9 


000011* 


03035 


00 


0077 


1237 


L77 


000077* 


03Q36 


00 


0200 


1240 


L200 


000200* 


03037 


00 


0277 


1241 


1.277 


000277* 


03040 


00 


0477 


1242 


L477 


000477* 


03o4l 


00 


0677 


1243 


L677 


000677* 


03042 


00 


oooo 


1244 


LADO 


000000* 


03043 


00 


0000 


1245 


LCORR 


000000* 


03044 


00 


UOOO 


1246 


LlCORw 


000000* 


03045 


Ou 


0000 


1247 


LACTR 


oooooo* 


00046 


00 


UOOO 


1250 


LOOP 


000000* 


03047 


UO 


UOOO 


1251 

1252 


LPAT 

FLUSHi 


oooooo* 

PROG*MUELLER*bOcT 


03050 


00 


0000 


• 1253 


flushi 


0*0 


03051 


12 


3102 


1254 




ENTAL*PaR 1 


03052 


44 


3101 


1255 




STRAL*PaR 


03053 


12 


3101 


1256 




emtal*par 


03054 


74 


3056 


1257 




STRAUR*L0K+2 


03055 


12 


3104 


I2b0 




ENTaL*PaT 1 


03056 


44 


oooo 


1261 




stral*o 


03057 


57 


3101 


1262 




isk*par 


03060 


34 


3062 


1263 




JP+L0K+2 


03061 


34 


3064 


1264 




JP*L0K+3 


03062 


76 


1735 


1265 




rup*chek 


03063 


3.4 


3053 


1266 




Jp+FLUSHi+3 


03064 


r. 


]l02 


1267 




EfiT aL*PaRI 



recycle with new Pattern 

LOOP CTR 
IS 1 » 2 » OR 3 

IF O.SFT b=20 ANq LEAVE AL=C) 

exit 

Set aL~20Q»400>OR 600 

set r=o 
exit 



holds address for typeout 

HOLDS CORRECT DATA FOR TYPEOUT 

holds incorrect data for typeout 

ADDRESS COUNTER 

loop counter 
pattern store 

(.n cn 

, lx) X 

SR ENTRANCE i in 

SET CONTROL MEMORY TO ALL ONES 'oh 

set up index count ' 

CO tjl 
CO 



23 

rr ] 

SET aDi.rESS TO ones < 

Through $ 

NO ■ Q 

YES-NOw Clear memory 

p 

continue *• 

set control memory To all zeros/ \ 




( c 



03065 


44 


3101 


1270 




STRaL*PaR 


03066 


12 


3101 


1271 


FLUSH?* 


LnTAL*PAR 


03067 


74 


3070 


1272 




STRaDR*L0K+1 


0O070 


4 0 


0000 


1273 




CL*0 


03071 


57 


3101 


1274 




ISR+PAR 


03072 


34 


3074 


1275 




, UP*L0K+2 • 


0 3 U 7 3 


55 


3050 


1276 




IJP*FLUSH1 


03074 


76 


1735 


1277 




RJP+CHEK 


03075 


34 


306b 


1300 




JP+FLUSH2 








1301 


FLUSH 


PR0G*MUELLER*80cT6. 


03076 


76 


3050 


1302 


FLUSH 


R JP+FLUSHl 


03077 


50 


5602 


1303 




ST 0P*Q2 


03100 


34 


1546 


1304 




jp*track 








1305 


par 


prog+mueller 


03101 


00 


0000 


1306 


PAR 


0*0 


03102 


00 


0000 


1307 


PARI 


0*0 


03103 


00 


0000 


1310 


PAT 


00*0000 


03104 


77 


7777 


1311 


PAT 1 


77*7777 


03105 


52 


5252 


1312 


PALI 


52*5252 


03106 


25 


2525 


1313 


PALO 


25*2525 


03107 


00 


0000 


1314 


DIP 


00*0000 


03110 


00 


oooo 


1315 




00*0000 


03111 


GO 


0000 


1316 


HERE 


00*0000 


03112 


0 0 


oooo 


1317 


THERE 


00*0000 


03113 


00 


0000 


' 1320 


WHERE 


0*0 


03114 


GO 


0000 


1321 


ALP ARM 


0* 








1322 




remark*typt for 12 


03115 


00 


UOQO 


1323 


TYPT 


0 * 


03116 


75 


3157 


1324 




STRSR*fSPT2Q 


03117 


4b 


3206 


i325 




STKaU*TSPT3 


05120 


44 


3207 


1326 




STRaL*T‘j»PT4 


03121 


42 


3210 


1327 




STRb*TS>PT5 


03122 


70 


0003 


1330 




El -TALK *3 


03123 


76 


3171 


1331 




RJR*T$PT J 2 


03124 


32 


3115 


1332 


TiPfl 


Ei iTH*TYPT 


03125 


37 


0001 


1333 




EuTP.Kb*! 



( 
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SET UP INDEX COUNT 



set ADLESS to Zeroes 

THRuJGH 

NO 

yes EXIT 



continue 

FLUSH CONTROL MEMORY 
SET STnP KEYl TO STOP TEST 

8 OCT A 4 



- OR 53? 




0 

1 

o 

co 



F 



RET 759 REVISION 



PA6E 024 



03126 


42 


3115 


1534 




strr*typt 






03127 


50 


731 u 


1335 




entsr*io . 






03130 


11 


0000 


1336 




ENTAUB+O 






03131 


50 


7300 


i.337 




• ENTSR*0 






03132 


36 


0002 


1340 




E|.|TbK+'2 






03133 


70 


0000 


1341 


1SPT2 


eptalk*o 






03134 


50 


4706 


1342 




LSHA*6 






03135 


02 


3211 


1343 




CMAL*T*PT6 






03136 


ul 


3150 


1344 




JPEQ*T3>PT22 






03137 


71 


0040 


1345 


HNOOP 


ADDALK*40 


modified TO RJP*cONVER 


IF 1232 SELECTFd f 


03140 


02 


3247 


' 1346 




CMAL*M136 


CR-LF? 




03141 


63 


3145 


1347 




JPN0T*L(jK+4 


NO 




03142 


70 


0015 


1350 




ENTALK*15 


CR 




03143 


76 


3162 


1351 




RJP*TiPT7 


LF 




03144 


70 


0012 


1352 




ENTALK*12 




03145 


76 


3162 


1353 




RJP*T3.PT7 






03146 


73 


3133 


1354 


T$PT2J. 


BJP+T4PT2 






03147 


54 


3124 


1355 




JP+T1PT1 


• 




03150 


70 


0001 


1356 


T5.PT2 ? 


ENTaLK*! 






03151 


76 


3171 


1357 




RJP*T$PT12 






03152 


14 


3115 


1360 




addal+typt 






03153 


44 


3115 


1361 




strautypt 






03154 


10 


3206 


1362 




ENTAU+T5PT3 






03155 


12 


3207 


13b3 




ENTAUTSPT4 




<n in 


0ol56 


32 


3210 


1364 




ENTB*T*PT5 




HEET 

B-101 


03157 


30 


7300 


1365 


T$PT2n 


emtsr+o 




03160 
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